home *** CD-ROM | disk | FTP | other *** search
/ Hackers Handbook - Millenium Edition / Hackers Handbook.iso / files / c_scripts / scanport-wr.perl < prev    next >
Encoding:
Text File  |  1998-12-05  |  2.1 KB  |  99 lines
  1. #!/usr/bin/perl
  2. #############################################################
  3. #
  4. # ScanPort v1.0
  5. # Written By: Samuel Sparling (sparling@slip.net)
  6. #
  7. # Copyright ⌐ 1998 Samuel Sparling
  8. # All Rights Reserved.
  9. #
  10. # Thanks to gargan for the idea of a perl port scanner
  11. #
  12. # Tested on: 
  13. # Windows 95 w/ ActiveWare's perl for Win32 (perl 5.003_07)
  14. # SunOS 5.6 w/ perl 5.004_04
  15. # Red Hat Linux 5.1 w/ perl 5.004_04
  16. #
  17. #############################################################
  18. #
  19. use Socket;
  20.  
  21. print "ScanPort v1.0\n\n";
  22. print "Host: ";
  23. $remote=<STDIN>;
  24. chop($remote) if $remote =~ /\n$/;
  25.  
  26. print "Start Port: ";
  27. $start=<STDIN>;
  28. chop($start) if $start =~ /\n$/;
  29.  
  30. print "Stop Port: ";
  31. $stop=<STDIN>;
  32. chop($stop) if $stop =~ /\n$/;
  33.  
  34. print "Log Session?(y/n)";
  35. $yn=<STDIN>;
  36.  
  37. if($yn =~ /y/i)
  38. { 
  39.     $log = 1; 
  40.     $logfile="$remote".".scan";
  41.  
  42.     print "Log File [$logfile]: ";
  43.     $file=<STDIN>;
  44.     chop($file) if $file =~ /\n$/;
  45.  
  46.     if($file ne "") 
  47.     {
  48.         $logfile=$file;
  49.     }
  50.     open(LOG,">>$logfile") || die("Unable to write to $logfile!");
  51. }
  52.  
  53.  
  54. $time = localtime(time);
  55.  
  56. print "\nScanning ports $start to $stop on $remote at $time\n\n";
  57.     if($log == 1)
  58.     {
  59.         print LOG "\nScanning ports $start to $stop on $remote at $time\n\n";
  60.     }
  61.     $current=$start;
  62.     while($current < $stop)
  63.     {
  64.         &scan_port($current);
  65.         $current++;
  66.     }
  67.  
  68. $time = localtime(time);
  69. print "\nFinished scan of $remote at $time\n";
  70.     if($log == 1)
  71.     {
  72.         print LOG "\nFinished scan of $remote at $time\n";
  73.         close(LOG);
  74.     }
  75.  
  76. sub scan_port
  77. {
  78. $port = shift(@_);
  79.  
  80.     if ($port =~ /\D/) { $port = getservbyname($port, 'tcp'); }
  81.     die("No port specified.") unless $port;
  82.     $iaddr = inet_aton($remote) || die("Failed to find host: $remote");
  83.     $paddr = sockaddr_in($port, $iaddr);
  84.     $proto = getprotobyname('tcp');
  85.     socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die("Failed to open socket: $!");
  86.     if(connect(SOCK, $paddr))# || die("Unable to connect: $!");
  87.     {
  88.         print "Listening on port: $port\n";
  89.         if($log == 1)
  90.         {
  91.             print LOG "Listening on port: $port\n";
  92.         }
  93.     }
  94.     close(SOCK);
  95. }
  96.  
  97.  
  98. exit;
  99.